home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / PCSSP.LZH / PC-SSP.ZIP / POLYOPS.ZIP / PILD.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  45 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PILD
  5. C
  6. C        PURPOSE
  7. C           EVALUATE POLYNOMIAL AND ITS FIRST DERIVATIVE FOR A GIVEN
  8. C           ARGUMENT
  9. C
  10. C        USAGE
  11. C           CALL PILD(POLY,DVAL,ARGUM,X,IDIMX)
  12. C
  13. C        DESCRIPTION OF PARAMETERS
  14. C           POLY  - VALUE OF POLYNOMIAL
  15. C           DVAL  - DERIVATIVE
  16. C           ARGUM - ARGUMENT
  17. C           X     - VECTOR OF COEFFICIENTS FOR POLYNOMIAL, ORDERED
  18. C                   FROM SMALLEST TO LARGEST POWER
  19. C           IDIMX - DIMENSION OF X
  20. C
  21. C        REMARKS
  22. C           NONE
  23. C
  24. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  25. C           PQSD
  26. C
  27. C        METHOD
  28. C           EVALUATION IS DONE BY MEANS OF SUBROUTINE PQSD (QUADRATIC
  29. C           SYNTHETIC DIVISION)
  30. C
  31. C     ..................................................................
  32. C
  33.       SUBROUTINE PILD (POLY,DVAL,ARGUM,X,IDIMX)
  34.       DIMENSION X(1)
  35. C
  36.       P=ARGUM+ARGUM
  37.       Q=-ARGUM*ARGUM
  38. C
  39.       CALL PQSD (DVAL,POLY,P,Q,X,IDIMX)
  40. C
  41.       POLY=ARGUM*DVAL+POLY
  42. C
  43.       RETURN
  44.       END
  45.